home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / arteffect2.demo / rexx / fadeborder.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-28  |  1KB  |  53 lines
  1. /*
  2.     Fade Border
  3.     Copyright © 1997 A. Pratsch
  4.     ArtEffect ARexx Script
  5. */
  6.  
  7. options results
  8.  
  9. address "ArtEffect"
  10.  
  11. requestnumber title '"Fade Border"' def 10 min 4 max 100 unit 'Pixel' prompt 'Size'
  12. bordersize = result
  13.  
  14. /* get picture dimensions into pic.width & pic.height */
  15. get stem pic. pictureinfo
  16.  
  17. /* outer polygon points */
  18. x1 = 0
  19. y1 = 0
  20. x2 = pic.width
  21. y2 = pic.height
  22.  
  23. /* inner polygon points */
  24. ix1 = bordersize
  25. iy1 = bordersize
  26. ix2 = pic.width-bordersize
  27. iy2 = pic.height-bordersize
  28.  
  29. /* fading border */
  30. stencil all
  31. palette rs 0 re 1
  32. setcolor 0 0 0 reg 1
  33. setcolor 255 255 255 reg 0
  34.  
  35. gradient = 'linear,alpha,256,0:'
  36.  
  37. /* top */
  38. points = x1 y1   x2 y1   ix2 iy1   ix1 iy1
  39. 'polygon strength 100 gradient 'gradient'0,0,0,'bordersize points
  40.  
  41. /* bottom */
  42. points = x1 y2   x2 y2   ix2 iy2   ix1 iy2
  43. 'polygon strength 100 gradient 'gradient'0,'y2',0,'iy2 points
  44.  
  45. /* left */
  46. points = x1 y1   ix1 iy1   ix1 iy2   x1 y2
  47. 'polygon strength 100 gradient 'gradient'0,0,'ix1',0' points
  48.  
  49. /* right */
  50. points = x2 y1   ix2 iy1   ix2 iy2   x2 y2
  51. 'polygon strength 100 gradient 'gradient || x2',0,'ix2',0' points
  52.  
  53.